Know Your Hockey - The Greatest Player Resource/Know Your Hockey: The Greatest Player Resource.iso/hockey/director/ssqcst.cst/00022_Script_Sound and video PlayBack Scripts

Text File | 1998-09-28 | 5KB | 146 lines

global gTheBench,gClipOut,gPlayertitles,gXCast

-- looks up the title sound using the propertylist gTheBench

on TitleSound
  puppetsound 0
  set thesnd = the clickon -10-- modify this number if the position of the play sprites change
  set title = getat(gPlayerTitles,thesnd)
  puppetsound title
  updateStage
end

-- plays the title sound for each detail card
on playTitle which
  puppetsound 0
  set localList = getaProp(gTheBench,#title)
  set theSnd = getat(LocalList,which)
  puppetsound theSnd
  updateStage
end


--- plays the coach vo over the video after the title sound has finished
-- this script is the same as playcoach  except  it has a timer to wait for the title audio to finish

on playVo -- plays vo when player is selected this script has a delay for the title sound

  puppetsound 0
  set  TheSound = getaprop(gTheBench,#Ann)
  set LocalVideo = getaprop(gTheBench,#video)
  set current =  the name of member ( the membernum of sprite 48)of castlib gXcast -- get the name of the current video
  set which = getOne( LocalVideo,current)-- look for the position of the current video in the local list
  set playit = getat ( TheSound,which)-- use the resulting number to find the right sound to play
  put playit
  puppetsound playit
  updateStage
end





-- looks at the current card to decide which sound to play
on playCoach
  puppetsound 0
  if  the membernum of   sprite 7 = 0 then -- if nothing has been selected exit
    set s = (the number of member "JRtitle" of castlib gXCast)+1
    set theone = the name of member s of castlib gXCast
    puppetsound  theone
    updatestage
    exit
  end if
  set selection = the name of member (the membernum of sprite 48) of castlib gXCast-- find which large card is on the screen
  set positionList = getaProp(gTheBench,#video)
  set which = getPos(positionList,selection)
  puppetsound 0
  set  TheSound = getaprop(gTheBench,#coach)
  set playit = getat ( TheSound,which)
  puppetsound playit
  updateStage
end

-- looks at the current card to descide which sound to play
--because of yet another wonkie avi problem  if the video is paused after losepop is run then the video will
-- disappear so I have to nenut it abit is run momentarily to make sure that theavi stays on the screen
on PlayAnn
  puppetsound 0
  if  the membernum of   sprite 7 = 0 then -- if nothing has been selected exit
    puppetsound "SEQM_D"
    updatestage
    exit
  end if
  set selection = the name of member (the membernum of sprite 48) of castlib gXCast-- find which large card is on the screen
  set positionList = getaProp(gTheBench,#video)
  set which = getPos(positionList,selection)
  puppetsound 0
  set  TheSound = getaprop(gTheBench,#ann)
  set playit = getat ( TheSound,which)
  puppetsound playit
  updateStage

end


on loadvideoCard
  -- uses the name of the button clicked to find which video to display

  set selection = the name of member (the membernum of sprite the clickon) of castlib gXCast
  set positionList = getaProp(gTheBench,#icons)
  set which = getPos(positionList,selection)

  -- changes the Largecard
  set temp1=getaProp(gTheBench,#card)
  set theCard = getat(temp1,which)
  set the membernum of sprite 7 = the number of member theCard of castlib gXCast
  set  the scriptText of member (the number of member  theCard of castlib gXCast) = ¼
The scriptText of member (the number of member  "BigCard" of castlib "Internal")
  updateStage -- to make it look like something is happening take out if too slow

  -- changes the video
  set temp =getaProp(gTheBench,#video)
  set theVideo = getat(temp,which)
  set the membernum of sprite 48 = the number of member thevideo of castlib gXCast
  set the movietime of sprite 48 = 0
  set the movierate of sprite 48 = 1
  ProJrOFF
  set  gClipOut = the duration of member theVideo -- -30 -- sets the end point for the script videoplayer
  playTitle which -- plays the title for each detail
  updateStage
end

--attach to player script to load the first video gets the name of the first video from
--the property #video in gTheBench

on loadFirstvideo
  set temp =getaProp(gTheBench,#video)
  set theVideo = getat(temp,1)
  set the type of sprite 48 = 16
  set the membernum of sprite 48 = the number of member thevideo of castlib gXCast
  set the ink of sprite 48 = 32
  set the locv of sprite 48 = 104
  set the loch of sprite 48 = 148
  set the visible of sprite 48 =1
  ProJrOFF -- resets the pro and jr Icon to off
  set  gClipOut =( the duration of member theVideo of castlib gXCast)-40 -- sets the end point for the script videoplayer
  updatestage
  set the movietime of sprite 48 =0
  set the movierate of sprite 48 = 0
  setvideovolume
end

-- both the first loaded video and the loadvideo must turn off the pro/jr icons
-- this script does this and is called from loadfirstvideo and loadvideocard
-- reset the icon and the associate position in the button status list gButtonState

on ProJrOFF
  repeat with x = 24 to 25
    set test  = getat(gButtonState,x)
    if test > 0 and the membernum of sprite x > 0 then
      set i = the membernum of sprite x
      setat(gButtonState,X,0)
    end if
  end repeat

end